home *** CD-ROM | disk | FTP | other *** search
/ F1 Licenseware / F1 Licenseware - Volume 1.iso / disks / 089a.dms / 089a.adf / example.lha / Morse.Amos / Morse.amosSourceCode
AMOS Source Code  |  1992-02-26  |  599b  |  30 lines
  1. Dim MORSE$(36)
  2. For LOP=1 To 36
  3. Read MORSE$(LOP)
  4. Next LOP
  5. 1
  6. Repeat : Inc CHECK : Until Mouse Key=1
  7. While Mouse Key=1
  8. Inc TIME
  9. Wend 
  10. If CHECK>1500
  11. CHECK=0
  12. For LOP=1 To 36
  13. If WORD$=MORSE$(LOP)
  14. Print Chr$(64+LOP); : LOP=36
  15. End If 
  16. Next 
  17. WORD$=""
  18. Goto 1
  19. End If 
  20. If TIME>3
  21. If TIME/10<60
  22. WORD$=WORD$+"."
  23. Else 
  24. WORD$=WORD$+"-"
  25. End If 
  26. End If 
  27. TIME=0
  28. CHECK=0
  29. Goto 1
  30. Data ".-","-...","-.-.","-..",".","..-","--","....","..",".---","-.-",".-..","--","-.","---",".--.","--.-",".-.","...","-","..-","...-",".--","-..-","-.--","--..","-----",".----","..---","...--","....-",".....","-....","--...","---..","----."